home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / PCBMAIL.T < prev    next >
Text File  |  1991-02-16  |  3KB  |  72 lines
  1.  if !c return
  2.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  3.  : Licensed for use at your own risk without fee. Altered versions,
  4.  : when distributed, must be clearly marked as altered and accompanied
  5.  : by the originals.
  6.  :
  7.  : Send an Outbound PCBoard Mail File
  8.  : 1st line: target;subject;security
  9.  : Target: User name or ALL
  10.  : Security: (R)eceiver (Enter)=none
  11.  : Remainder of file is the memo: (72 chars/line)
  12.  display inhibit;open -!g %item;display noinhibit
  13.  setc z9 \032;if !t goto mailinvd
  14.  grab z1;if !%z1||Iz9,z1||!t goto mailinvd
  15.  split z1 ",;" ";" "";ife !%z1 goto mailinvd;setc z0 \U%z0
  16.  ife iz0,A set z0 ALL;else ife iz0,S set z0 SYSOP
  17.  setc z2 \U%z2 ife "!iz2,R" set z2 "";if "iz0,ALL" set z0 "" set z2 ""
  18.  setc z9 \032;grab z3;if Iz9,z3||!t goto mailinvd
  19. mailok:
  20.  pat;pat 0c \n "@set z7 0 set z8 0 set z9 0 pf30 ena -f30"
  21.  pat 1c ? "@set z9 1 pf1 ena -f1"
  22.  pat 2 "---)\r" "@set z9 2";pat 3 "---]\r" "@set z9 2"
  23.  pat 4c "Command" "@set z8 1";pat 5c "Mail" "@set z7 1"
  24.  pat 6c "Main Board" "@set z7 2";setn z9 s5+0
  25.  pat 7c "(%z9)" "@set z7 2";pat 8c "Conference" "@set z7 2"
  26.  pat 9c "To " "@set z8 2";pat 10c "Reply to" "@set z8 2"
  27.  pat 11c "ontinue on" "@set z8 3";pat 12c "ubject" "@set z8 4"
  28.  pat 13c "ecurity" "@set z8 5";pat 14c "Visual Editor" "@set z8 6"
  29.  pat 15c "Full Screen" "@set z8 6"
  30.  sets z6 %z0 ife "az0>0" mput REPLY\r;else mput E\r
  31. waitpr:
  32.  set z7 0 set z8 0 set z9 0 pf30 wait -f30
  33.  if !c||iz9,0 bye;ife r nolog close;return
  34.  ife iz9,2 pf30 goto mailnext;mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  35.  if iz8,1 ife iz7,2 goto mailinvr;mput \r goback waitpr
  36.  if iz8,2 mput \T%z6 mput \r set z6 "" goback waitpr
  37.  : ife iz8,3 mput y\r goback waitpr;if iz8,4 mput \T%z1 mput \r goback waitpr
  38.  ife iz8,3 mput c\r goback waitpr;if iz8,4 mput \T%z1 mput \r goback waitpr
  39.  ife iz8,5 mput %z2\r goback waitpr;if iz8,6 mput n\r goback waitpr
  40.  mput \r goback waitpr
  41. mailnext:
  42.  pat;ife %z3 mput \T%z3 mput \r;else mput " \r"
  43.  pat 0c \b;pat 1i \n;wait -f10;if n bye;return
  44.  if 0 pat;pat 0 ":";pat 1 "Command";pat 2 "(S)"
  45.  else pat;pat 0i ":";pat 1i "Command";pat 2i "(S)"
  46.  wait -f20;if n bye;return
  47.  grab z3;if t&&Iz9,z3 closetx
  48.  if 0 ife t goback mailnext;pat;mput \r pat 1 "Command";pat 2 "(S)";wait -f20;if n bye;return
  49.  pat;mput s\r
  50.  pat 0c \n "@set z7 0 set z8 0 set z9 0 pf30 ena -f30"
  51.  pat 1c ? "@set z9 1 pf1 ena -f1";pat 2c "Command" "@set z8 1"
  52.  pat 3c "Mail" "@set z7 1";pat 4c "Main Board" "@set z7 2"
  53.  pat 5c "Conference" "@set z7 2";setn z9 s5+0;pat 6c "(%z9)" "@set z7 2"
  54.  pat 7c Abort "@set z8 2"
  55. waitsv:
  56.  set z7 0 set z8 0 set z9 0 pf30 wait -f30;if !c||iz9,0 bye;ife r nolog close;return
  57.  mput \b\b\b\b\b\b\b\b\b\b\b\b\b\b\b
  58.  ife iz8,0 mput \r goback waitsv;if iz8,2 mput y\r goback waitsv
  59.  ife iz7,0 mput \r goback waitsv;if iz7,1 mput quit\r goback waitsv
  60.  ife t goback mailok
  61.  del %item
  62.  pat;return
  63. mailinvr:
  64.  echoc "File %item not accepted as a mail file"
  65.  if t nolog closetx
  66.  pat;return
  67. mailinvd:
  68.  echoc "Improper File - %item"
  69.  if t nolog closetx
  70.  : del %item
  71.  return
  72.